home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 6
/
Amiga Format AFCD06 (Nov 1996, Issue 90).iso
/
serious
/
shareware
/
cd-rom
/
atapi_pnp212
/
installa.italiano
< prev
next >
Wrap
Text File
|
1996-05-03
|
18KB
|
650 lines
; ************************************************
; *
; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
; *
; * Installation for Atapi Package v 1.00
; *
; * Copyright © 1995 by Georg Campana
; *
; ************************************************
;/// Variabili
; ****************************
; Variabili
; ****************************
;
(set DemoVersion 1) ; Demo Version
(set ProductName "ATAPI PnP ITALIAN VERSION" ) ; product name
(set ProductBaseName "Atapi PnP") ; product base name
(set VersionNum "2.12") ; product version number
(set OSVersion (/ (getversion) 65536))
(set PctDone 0)
(set CPUOpts 0) ; 0=68000,68010; 1=68020,68030,68040
(makeassign "CDPLUSPLUS" "" (safe))
(set Disk1Name "CDPLUSPLUS:")
(set MemSpace 1024) ; 1K minimo di spazio necessario su disco
;///
;/// Proc setPkgOPts
(procedure setPkgOpts
;
; ****************************
; * Wich Parts
; ****************************
;
(
(set PkgOpts
(askoptions
(prompt
"Scegli le parti che vuoi installare"
("del pacchetto %s" ProductName)
)
(help
"Questa parte dell'installazione ti permette di scegliere quali moduli del"
(" pacchetto %s vuoi installare.\n" ProductName)
"\n"
"*** Atapi Device Driver\n"
"Questa opzione farà si che verrà installato il device"
" driver (cd.device )nella directory Devs: (Fondamentale)\n"
"\n"
"*** CDplusplusFS\n"
"Questa opzione installerà il file system proprietario"
" della CD++ nella directory L: (Consigliato).\n"
"\n"
"*** MAP-Mini Atapi Player\n"
"Questa opzione installerà una utility che permette la"
" riproduzione di CD-Audio anche misti.\n"
"\n"
"*** TRKDownLoad Track-Downloader\n"
"Questa opzione farà installare un utility che permette"
" il salvataggio su file di parti di tracce audio o dati.\n"
"\n"
"*** PlayCDXL\n"
"Questa opzione installerà un utility che permette la"
" riproduzione in tempo reale di film CDXL.\n"
"\n"
"*** CD_IDE\n"
"Questa opzione installerà un utility che permette di"
" settare alcune opzioni speciali.\n"
"\n"
@askoptions-help
)
(choices
; bit position 0 -- todo & 1
;
"Atapi Device Driver (20 Kbytes)"
; bit position 1 -- todo & 2
;
"CDplusplusFS - CD Filesystem (23 Kbytes)"
; bit position 2 -- todo & 4
;
"MAP- Mini Atapi Player (10 Kbytes)"
; bit position 3 -- todo & 8
;
"TRKDownLoad- Track DownLoader(28 Kbytes)"
; bit position 4 -- todo & 16
;
"PlayCDXL - Player Film CDXL (23 Kbytes)"
; bit position 5 -- todo & 32
;
"CD_IDE -Preferenze del Device (9 Kbytes)"
)
)
)
)
)
;///
;/// Proc setDirPath
(procedure setDirPath
;
; ****************************
; * Ask the user for a directory name.
; ****************************
;
; these variables must be defined before calling this procedure:
; setDirPathWhy
; setDirPathHelp
; DirPath
;
; this procedure returns the selected directory in DirPath
;
(
(set DirPath
(askdir
(prompt ("Seleziona il disco sul quale installare il pacchetto\n(IL DISCO DI BOOT. Normalmente SYS: )" )
)
(help "Il Pacchetto verrà installato sul disco"
" prescelto .\n"
"Se volete installare il pacchetto su un dischetto"
" bootabile inserite quest'ultimo e sceglietelo"
" dalla lista che si presenta\n"
"\n"
@askdir-help
)
(disk)
(default "SYS:")
)
)
)
)
;///
;/// Proc AskFsIcon
;
;
(procedure AskFsIcon
;
; This procedure ask of wich cd Icon you want to install with wich Name
; It requires initialization of variables:
;
; In "DefaultIcon" ci deve essere quella accesa di default
;
; Ridà in "IconChoose" qual icona
; 0 nessuna - 1 AmiCDFilesystem
; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
;
(
(set IconChoose
(askchoice
(prompt "Scegli per quale CD-Filesystem installare l'icona")
(help
"Potete scegliere per quale filesystem"
" installare il pacchetto.\n"
"Nel caso che abbiate installato il"
" CDpluplusFS , scegliete quest'ultimo.\n"
"\n"
"Se il filesystem in vostro possesso"
" non è presente tra quelli nella lista"
" scegliete -Nessuno- e modificate nei"
" tooltype dell'icona del vostro device"
" CD la voce Device con\nDevice=cd.device\n"
"e la voce Unit con\nUnit=0\n"
@askchoice-help
)
(choices
"-Nessuno"
"-AmiCDFileSystem - by Nicola Salmoria"
"-cdrom-handler - by Frank Munkert"
"-CDFileSystem - by CBM Commodore"
"-CDplusplusFS - by CD++"
)
(default DefaultIcon)
)
)
)
)
;///
;/// Proc GetDevName
;
; in DevName si ritrova il nome da usare per l'icona
;
(procedure GetDevName
(
(set DevName
(askstring
(prompt "Scrivi il nome per il device CD-Rom senza i due punti\nEs. CD0")
(help
"Il nome scelto sarà quello del"
" Device fisico\n"
"E' conveniente non scegliere"
" nomi troppo lunghi\n"
"\nE' consigliabile CD0 o CD1 ecc."
" dato che molti programmi cercano"
" questo nome\n"
)
(default "CD0")
)
)
)
)
;///
;/// Proc AskAutoMount
;
;
(procedure AskAutoMount
;
; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
; storage dosdrivers
;
(
(set AutoMount
(askbool
(prompt "Vuoi che il device Atapi venga montato"
" automaticamente ad ogni riavvio ,od"
" a ogni accensione ?"
)
(help
"Rispondendo positivamente l'icona del"
" device verrà posta nel cassetto:\n"
"Devs:Dosdrivers\n"
"In questo modo il lettore CD-ROM sarà disponibile"
" ad ogni riavvio o accensione della macchina\n\n"
"Altrimemti in: Storage:DosDrivers\n"
"ed il lettore sarà utilizzabile solo dopo aver cliccato due volte sulla sua Icona"
)
(choices
"Monta al Riavvio"
"No,Montaggio manuale"
)
(default 1)
)
)
)
)
;///
; *************************************************************************
; * ACTUAL START OF SCRIPT
; *
; * Ask all questions for the user now, do all of the work later.
; *************************************************************************
;
;/// MAIN SCRIPT
(onerror
)
; ****************************
; Check for OS Version
; ****************************
(if (= DemoVersion 1)
(message "\n" "\n"
"Attenzione: Questa è una versione DEMO\n"
"del Pacchetto Atapi PnP !\n"
"PUOI RIDISTRIBUIRE IL DISCO\n"
"COMPLETO A CHIUNQUE (tranne ai Crakker)" "\n"
"\n"
"Atapi Plug'n Play is Copyright by \n"
"Georg Campana & Marco Campinoti ©1994\n\n"
"E-Mail: georg@etruscan.li.it\n"
(help "Per avere la versione registrata , completamente funzionante leggete il manuale o chiamate : 0565/850621 e 0565/853005")
)
(message "\n" "\n"
"Attenzione: Questa è la versione Registrata\n"
"del Pacchetto Atapi PnP !\n"
"E' VIETATO RIDISTRIBUIRE QUALSIASI FILE\n"
"PRESENTE IN QUESTO DISCHETTO" "\n"
"( I file sono contrassegnati )\n"
"Atapi Plug'n Play is Copyright by \n"
"Georg Campana & Marco Campinoti ©1994\n\n"
"E-Mail: georg@etruscan.li.it\n"
(help "Se volete fare registrare chiamate: 0565/850621 o 0565/853005")
)
)
; ****************************
; ****************************
;
(set DirPath "SYS:")
(setDirPath)
(set @default-dest DirPath)
(set devdest (tackon @default-dest "Devs"))
(set fsdest (tackon @default-dest "L"))
(set utildest (tackon @default-dest "Utilities"))
(set prefdest (tackon @default-dest "Prefs"))
(setPkgOpts)
(set DefaultIcon 0)
(if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
(set DefaultIcon 1)
)
(if (= (exists (tackon fsdest "cdrom-handler")) 1)
(set DefaultIcon 2)
)
(if (= (exists (tackon fsdest "CDFileSystem")) 1)
(set DefaultIcon 3)
)
(if (IN PkgOpts 1)
(set DefaultIcon 4)
)
(AskFsIcon)
(select IconChoose
(set FsName 0)
(set FsName "AmiCDFS")
(set FsName "AmiCDHandler")
(set FsName "CbmCDFS")
(set FsName "CDplusplusFS")
)
(set AutoMount 1)
(set DevName "CD0")
(if (> @user-level 1)
(if (<> IconChoose 0)
(
(GetDevName)
(AskAutoMount)
)
)
)
(if (= AutoMount 1)
(set Icondest (tackon @default-dest "Devs"))
(set Icondest (tackon @default-dest "Storage"))
)
(if (IN PkgOpts 0)
(set MemSpace (+ MemSpace 20000))
)
(if (IN PkgOpts 1)
(set MemSpace (+ MemSpace 23000))
)
(if (IN PkgOpts 2)
(set MemSpace (+ MemSpace 10000))
)
(if (IN PkgOpts 3)
(set MemSpace (+ MemSpace 28000))
)
(if (IN PkgOpts 4)
(set MemSpace (+ MemSpace 23000))
)
(if (IN PkgOpts 5)
(set MemSpace (+ MemSpace 9000))
)
(if (<> IconChoose )
(set MemSpace (+ MemSpace 1000))
)
(if (< (getdiskspace DirPath) MemSpace)
(if(> (getdiskspace DirPath) 0)
(
(abort "ATTENZIONE: Lo spazio disponibile\n"
("sul disco %s\n" DirPath)
("è di soli %ld bytes\n" (getdiskspace DirPath) )
("e ne servono almeno %ld\n" MemSpace)
"\n"
"Rilanciate l'icona di Installazione\n"
"e selezionate meno utility , oppure\n"
"cancellate qualche file dal vostro\n"
("disco %s\n" DirPath)
)
)
)
)
; if bit position 0 is on Installa device
(if (IN PkgOpts 0)
(
(if (< (exists devdest (noreq)) 2)
(makedir devdest
(prompt "Creo una directory -Devs-")
(infos)
)
)
(if (< OSVersion 39)
(
(copylib
(prompt "Installo Device Driver")
(source (tackon Disk1Name "devs/cd_a600.device"))
(newname "cd.device")
(dest devdest)
(optional force)
)
)
(
(copylib
(prompt "Installo Device Driver")
(source (tackon Disk1Name "devs/cd.device"))
(dest devdest)
(optional force)
)
)
)
)
)
; if bit position 1 is on Installa FileSystem
(if (IN PkgOpts 1)
(
(if (< (exists fsdest (noreq)) 2)
(makedir fsdest
(prompt "Creo una directory -L-")
)
)
(copylib
(prompt "Installo FileSystem della CD++")
(source (tackon Disk1Name "l/CDplusplusFS"))
(dest fsdest)
(optional force)
)
)
)
; if bit position 2 is on Installa MAP
(if (IN PkgOpts 2)
(
(if (< (exists utildest (noreq)) 2)
(makedir utildest
(prompt "Creo una directory -Utilities-")
(infos)
)
)
(copyfiles
(prompt "Installo Mini Atapi Player")
(source (tackon Disk1Name "utilities/MAP"))
(dest utildest)
(infos)
(optional force)
)
)
)
; if bit position 3 is on Installa TRKDownLoad
(if (IN PkgOpts 3)
(
(if (< (exists utildest (noreq)) 2)
(makedir utildest
(prompt "Creo una directory -Utilities-")
(infos)
)
)
(copyfiles
(prompt "Installo TrkDownLoader")
(source (tackon Disk1Name "utilities/TRKDownLoad"))
(dest utildest)
(infos)
(optional force)
)
)
)
; if bit position 4 is on Installa PlayCDXL
(if (<> DemoVersion 1)
(if (IN PkgOpts 4)
(
(if (< (exists utildest (noreq)) 2)
(makedir utildest
(prompt "Creo una directory -Utilities-")
(infos)
)
)
(copyfiles
(prompt "Installo PlayCDXL")
(source (tackon Disk1Name "utilities/PlayCDXL"))
(dest utildest)
(infos)
(optional force)
)
)
)
)
; if bit position 5 is on Installa CD_IDE
(if (IN PkgOpts 5)
(
(if (< (exists prefdest (noreq)) 2)
(makedir prefdest
(prompt "Creo una directory -Prefs-")
(infos)
)
)
(copyfiles
(prompt "Installo CD_IDE")
(source (tackon Disk1Name "prefs/CD_IDE"))
(dest prefdest)
(infos)
(optional force)
)
)
)
(if (> IconChoose 0)
(
(if (< (exists Icondest (noreq)) 2)
(makedir Icondest
(prompt "Creo una directory Devs o Storage")
(infos)
)
)
(set Icondest (tackon Icondest "Dosdrivers"))
(copyfiles
(prompt "Installo l'Icona del Device")
(source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
(dest IconDest)
(newname DevName)
(infos)
(optional force)
)
(if (= AutoMount 1)
( message "\n" "\n"
"Ad ogni riavvio del calcolatore o ad ogni\n"
"accensione- il lettore CD-ROM verrà \"Montato\"\n"
"automaticamente !\n"
"\n"
"Potete disabilitare questo automatismo\n"
("trascinando l'icona %s dal cassetto " DevName)
"Devs/Dosdrivers nel cassetto Storage/Dosdrivers\n"
)
( message "\n" "\n"
"Potete \"Montare\"\n il lettore CD-ROM\n"
("cliccando semplicemente sull'Icona %s\n" DevName)
"nel cassetto Storage/Dosdrivers\n"
"Per abilitare il montaggio automatico\n"
"trascinate l'Icona nel cassetto Devs/Dosdrivers"
)
)
)
( message "\n" "\n"
"Non è stata installata alcuna Icona per\n"
"il montaggio del lettore CD-ROM .\n"
"E' necessario quindi costruirsi quest'ultima\n"
"autonomamente seguendo le istruzioni del\n"
"proprio filesystem !\n"
"\n"
"Potete anche rilanciare l'icona di installazione\n"
"e selezionare un filesystem alla richiesta\n"
)
)
(exit)
;///